home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 143 / 143side4.d64 / u.fort apache (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  2KB  |  45 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]       [211]hootout [193]t [198]ort [193]pache":print
  3. 30 print"[212]his program will modify your copy"
  4. 40 print"of '[198]ort [193]pache' to give you [213][206][204][201][205][201][212][197][196]"
  5. 50 print"[204][201][214][197][211] and [200][207][206][207][210][211].  ([195])onvert will give"
  6. 60 print"you [213]nlimited [204]ives and [200]onors, and"
  7. 70 print"([210])estore will return it to [206]ormal."
  8. 80 print"[201]t's best to use a [195][207][208][217] rather than"
  9. 90 print"using your original [204][207][193][196][211][212][193][210] disk!"
  10. 100 print"[205]ake sure that the [215]rite-[208]rotect tab"
  11. 110 print"is not covered on the disk!"
  12. 130 print"[212]o make these changes, [201]nsert [204]oadstar"
  13. 140 print"[201]ssue #130 [211]ide 3 into [196]rive #8, then"
  14. 150 print"[211]elect ([195])onvert [207]r ([210])estore."
  15. 152 print"[193]fter selecting, [196]o [206][207][212] touch the"
  16. 154 print"keyboard or open the disk drive door"
  17. 156 print"until the white [195]ursor appears!!!!!!"
  18. 157 print"       [211]elect ([195]) [207]r ([210]) [206]ow"
  19. 160 geta$:ifa$=""then160
  20. 165 ifa$="c"then180
  21. 170 ifa$="r"then400
  22. 175 goto160
  23. 180 q$=chr$(34):f$="fort apache"
  24. 190 print"[147][144]load"q$f$q$",8"
  25. 200 print"510 if(c2<>9)and(f2=1)thenic=ic-0"
  26. 210 print"520 if((c1=0)or(c1=7)or(c1=8))and(f1=1)thenic=ic-0:ific<0thenic=0"
  27. 220 print"940 poke53280,0:lf=lf-0"
  28. 230 print"945 if(j=0)and(c1=1)thenj=1:poke53250,peek(53250)+14:goto920"
  29. 250 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  30. 260 print"poke646,1
  31. 270 [153]""
  32. 280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  33. 290 [162]:[128]
  34. 400 q$[178][199](34):f$[178]"fort apache"
  35. 410 [153]"loadstopload"q$f$q$",8"
  36. 420 [153]"510 if(c2<>9)and(f2=1)thenic=ic-1"
  37. 430 [153]"520 if((c1=0)or(c1=7)or(c1=8))and(f1=1)thenic=ic-1:ific<0thenic=0"
  38. 440 [153]"940 poke53280,0:lf=lf-1"
  39. 450 [153]"945 if(j=0)and(c1=1)thenj=1:poke53250,peek(53250)+14:goto920"
  40. 460 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  41. 470 [153]"poke646,1
  42. 480 print""
  43. 490 fori=631to640:pokei,13:next:poke198,10
  44. 500 new:end
  45.